# NOT RUN {
RFoptions(cores=2) ## see package RandomFieldsUtils
## only the model definitions and the simulation result for the
## first model (Bass, '_set_') are returned; no pictures are drawn
str(adoption(gui=FALSE, printlevel=0))
## pictures are drawn and the result returned by 'adoption' is
## reduced to most revelant information (level=1). 'print' also
## returns this information in a list
z <- print(adoption(gui=FALSE), level=1)
str(z, give.attr=FALSE)
# }
Run the code above in your browser using DataLab